﻿Imports Commander_Wars.Spieletools
''' <summary>
''' Wird zu erstellen des KO's Rachel verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KORachel
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "RACHEL"
        Armee = Armeen.OS.ToString
        Musik = "Rachel"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 5
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        GebaeudeHeilung = 3
        Glueck = 0
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDS Then
            Glueck = 40
        Else
            If OhneFunktion = False Then
                Rakete(3, "LAND", 2, Effekte.Keiner)
            End If
            GabeEingesetzt()
        End If
    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 1
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectRocket(3, "LAND", 2, Effekte.Keiner, 0))
                Return P
            Case 2
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectRocket(3, "LAND", 2, Effekte.Keiner, 0))
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectRocket(3, "LAND", 2, Effekte.Keiner, 1))
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectRocket(3, "LAND", 2, Effekte.Keiner, 2))
                Return P
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWars Then
            If OhneFunktion = False Then
                Rakete(3, "LAND", 2, Effekte.Keiner)
            End If
            GabeEingesetzt()
        ElseIf DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDS Then
            If OhneFunktion = False Then
                Rakete(3, "LAND", 2, Effekte.Keiner, 1)
                Rakete(3, "LAND", 2, Effekte.Keiner, 8)
                Rakete(3, "LAND", 2, Effekte.Keiner, 16, 2)
            End If
            GabeEingesetzt()
        Else
            If OhneFunktion = False Then
                Rakete(3, "LAND", 2, Effekte.Keiner, 1)
                Rakete(3, "LAND", 2, Effekte.Keiner, 8)
            End If
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

Public Class KOBeschreibungRachel
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Rachel"
        Fein = "Harte Arbeit"
        Nein = "Faulheit"
        Beschreibung = New String() {"Bringt frischen Wind in ihre Truppe.", "Sie versucht in die Fussstapfen", "ihrer aelteren Schwester Nell", "zu treten."}
        Stil = New String() {"Ihre Truppen haben eine hohe", "Arbeitsmoral und koennen Einheiten", "schneller Reparieren."}
        Gabebeschreibung = New String() {"Eine Rakete wird auf die", "feindlichen Stellungen", "geschossen."}
        SpezialgabeBeschreibung = New String() {"Zwei Rakete werden auf", "die feindlichen Stellungen", "geschossen."}
        GabeKosten = 4
        Spezialgabekosten = 3
        Gaben = New String() {"Raketenschild", "Feuerschutz"}
        Synergie = New Decimal() {3, 2, 0.5#, 1.5#, 0.5#, -3.5, -1, -1.5#}
        KONamen = New String() {"NELL", "JAKE", "OZZY", "ARTEMIS", "SASHA", "ZAK", "VON BOLT", "GRAVES"}
        Doppelgabenamen = New String() {"Gluecksfall", "Orange Angriff", "Eruption", "Hoffnungsschimmer", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe"}
        Gabesaetze = New String() {"Ich werde dieses Land bis zum Ende verteidigen!" _
                                     , "Dieses Mal, ist es Ernst." _
                                     , "Du hast keine Chance." _
                                     , "Ich sende dir ein paar Pakete." _
                                     , "Endlich eine wahre Herausforderung!" _
                                     , "Suche keinen Kampf mit mir."}
        Siegsaetze = New String() {"Ein weiterer ...Wer ist der Naechste?" _
                                , "Ich gebe nie auf." _
                                , "Nimm mich nicht auf die leichte Schulter, nur weil ich eine Dame bin."}
        Tauschsaetze = New String() {"Auf an die Frontlinie." _
                                    , "Wo schaust du hin? Ich bin dein Gegner!"}
        Doppelgabesaetze = New DoppelGabesatz() {New DoppelGabesatz("RACHEL", "NELL", "Oh! Haben wir so viel Glueck.", "Jetzt lach mal ein bisschen. Das kostet nichts!") _
                                              , New DoppelGabesatz("NELL", "RACHEL", "Du kaempfst gut Rachel.", "Ich hatte eine gute Lehrerin.") _
                                              , New DoppelGabesatz("OZZY", "RACHEL", "Jetzt wird gerockt.", "Du hast nur Musik im Kopf. Es gibt gerade wichtigeres.") _
                                              , New DoppelGabesatz("RACHEL", "OZZY", "Es wird Zeit sie hier raus zu jagen.", "Einen Moment ich bin in einer Probe!") _
                                              , New DoppelGabesatz("RACHEL", "JAKE", "Perfekt! Jake mach weiter so.", "Natuerlich Jake! Ich sehe es auch.") _
                                              , New DoppelGabesatz("RACHEL", "JAKE", "Unterschaetze nicht die Orange Star Taktiken.", "Und unterschaetze nicht seine KO's.") _
                                              , New DoppelGabesatz("RACHEL", "ARTEMIS", "Wir brauchen noch ein bisschen Unterstuetzung.", "Ich bin bereits hier.") _
                                              , New DoppelGabesatz("RACHEL", "ARTEMIS", "Orange Star ist meine Heimat...", "und Brown Tundra meine. Wir geben nicht kampflos auf.")}
        Niederlagesaetze = New String() {"Ihr habt mich besiegt! Nicht schlecht.", _
                                     "Du machst dich ueber mich lustig?"}
    End Sub
End Class
